home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf / Write / WRITE.lha / WRITEV3.371.lha / REXX / View.wrx < prev    next >
Text File  |  1993-12-26  |  2KB  |  100 lines
  1. /*
  2.  * dieses Script arbeitet genauso wie open.wrx nur das es anstatt
  3.  * dem voreingestellten Konfigurationfile, den Konfigurationsfile
  4.  * "VIEW.CONFIG" läd
  5.  *
  6.  * usage : rx VIEW.wrx [#screen] [#run] FileName
  7.  *
  8.  * CHANGE PATH IN MARKED LINE TO YOUR WRITE-PATH !!!!
  9.  *
  10.  */
  11.  
  12. IF ~show('P',"WRITE")
  13. THEN DO
  14.   ADDRESS "COMMAND"
  15.   "run >NIL: <NIL: dh0:WRITE"               /* Change this to your Path  ! */
  16.   "SYS:REXXC/WaitForPort <NIL: >NIL: WRITE"
  17. END
  18.  
  19. PARSE ARG A.1 A.2 A.3 A.4
  20.  
  21. runit    = FALSE
  22. screenit = FALSE
  23. FileName = ""
  24. ViewName = "VIEW.CONFIG"
  25.  
  26. ViewName = A.1
  27.  
  28. DO i = 2 TO 4
  29.   IF A.i="#run" THEN DO
  30.     runit = TRUE
  31.   END
  32.   ELSE DO
  33.     IF A.i="#screen" THEN DO
  34.       screenit = TRUE
  35.     END
  36.     ELSE DO
  37.       IF A.i~="" THEN DO
  38.         FileName=A.i
  39.       END
  40.     END
  41.   END
  42. END
  43.  
  44. FileName=strip(FileName)
  45. FileName=strip(FileName,'B','"')
  46.  
  47. IF length(FileName)~=0
  48. THEN DO
  49.   IF pos(':',FileName)=0
  50.   THEN DO
  51.    DirName=pragma('D')
  52.    IF right(DirName,1)~=':' THEN
  53.      DirName=DirName||'/'
  54.    FileName=DirName||FileName
  55.   END
  56. END
  57.  
  58. ADDRESS "WRITE"
  59.  
  60. OPTIONS RESULTS
  61.  
  62. 'NEWED "VIEW.CONFIG"'
  63. ID = RESULT
  64. OPENPORT ID
  65. Port = RESULT
  66. IF Port = ""
  67. THEN DO
  68.   "MESSAGEOK (REXX-script 'mailer.wrx' :\nSorry, no more private ports!)"
  69.   EXIT
  70. END
  71.  
  72. INTERPRET ADDRESS Port
  73.  
  74. "WINDOW 0 0 0 0"
  75.  
  76. "SETVAR (_Path) ("||FileName||")"
  77. IF length(FileName)~=0
  78. THEN DO
  79.   IF exists(FileName) then
  80.     "OPEN ("||FileName||")"
  81.   ELSE
  82.     "SETVAR (_FileName) ("||FileName||")"
  83. END
  84.  
  85. IF (screenit = TRUE) & (runit = FALSE) THEN DO
  86.   MODIFYSCREEN 0
  87. END
  88.  
  89.  
  90. IF (runit = FALSE) THEN DO
  91.   WAITPORT ID
  92. END
  93.  
  94. IF (screenit = TRUE) & (runit = FALSE) THEN DO
  95.   IF show('P',"WRITE") THEN DO
  96.     ADDRESS "WRITE"
  97.     MODIFYSCREEN 1
  98.   END
  99. END
  100.